home *** CD-ROM | disk | FTP | other *** search
/ Macworld Expo - Develope…Central & Net Innovations / Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso / Developer Central / Bowers Development / Demo AppMaker / Examples / Pascal OS8 / Everything / DModelessCheckboxesData.p < prev    next >
Encoding:
Text File  |  1998-10-30  |  4.4 KB  |  273 lines  |  [TEXT/CWIE]
  1. { DModelessCheckboxesData.p -- data container class for Everything}
  2.  
  3. Unit DModelessCheckboxesData;
  4. Interface
  5.  
  6. Uses
  7.     Types,
  8.     OSUtils,
  9.  
  10.  
  11.     AMSignaler;
  12.  
  13. const
  14.     idStandard7        = longint ('Sta7');
  15.     idXx3        = longint ('Xx3 ');
  16.     idLR9        = longint ('LR9 ');
  17.     idLR10        = longint ('LR10');
  18.     idLR11        = longint ('LR11');
  19.     idLR12        = longint ('LR12');
  20.     idCheckbox5        = longint ('Che5');
  21.     idCheckbox6        = longint ('Che6');
  22.     idNext5        = longint ('Nex5');
  23.     idNext6        = longint ('Nex6');
  24.  
  25. type
  26.     {----------}
  27.     DModelessCheckboxesData    = object (AMSignaler)
  28.  
  29.     {data members}
  30.         mStandard7:        Boolean;
  31.         mXx3:        Boolean;
  32.         mLR9:        Boolean;
  33.         mLR10:        Boolean;
  34.         mLR11:        Boolean;
  35.         mLR12:        Boolean;
  36.         mCheckbox5:        Boolean;
  37.         mCheckbox6:        Boolean;
  38.         mNext5:        Boolean;
  39.         mNext6:        Boolean;
  40.  
  41.     {methods}
  42.         Procedure Initialize; Override;
  43.  
  44.         Function  GetStandard7: Boolean;
  45.         Procedure SetStandard7    (inValue:        Boolean);
  46.         Function  GetXx3: Boolean;
  47.         Procedure SetXx3    (inValue:        Boolean);
  48.         Function  GetLR9: Boolean;
  49.         Procedure SetLR9    (inValue:        Boolean);
  50.         Function  GetLR10: Boolean;
  51.         Procedure SetLR10    (inValue:        Boolean);
  52.         Function  GetLR11: Boolean;
  53.         Procedure SetLR11    (inValue:        Boolean);
  54.         Function  GetLR12: Boolean;
  55.         Procedure SetLR12    (inValue:        Boolean);
  56.         Function  GetCheckbox5: Boolean;
  57.         Procedure SetCheckbox5    (inValue:        Boolean);
  58.         Function  GetCheckbox6: Boolean;
  59.         Procedure SetCheckbox6    (inValue:        Boolean);
  60.         Function  GetNext5: Boolean;
  61.         Procedure SetNext5    (inValue:        Boolean);
  62.         Function  GetNext6: Boolean;
  63.         Procedure SetNext6    (inValue:        Boolean);
  64.     end;
  65.  
  66. {----------}
  67. Function NewDModelessCheckboxesData: DModelessCheckboxesData;
  68.  
  69. {----------}
  70. Implementation
  71.  
  72. {----------}
  73. Function NewDModelessCheckboxesData: DModelessCheckboxesData;
  74. var
  75.     data:        DModelessCheckboxesData;
  76. begin
  77.     data := nil;
  78.     New (data);
  79.     if data <> nil then begin
  80.         data.Initialize;
  81.     end;
  82.     NewDModelessCheckboxesData := data;
  83. end;
  84.  
  85. {----------}
  86. Procedure DModelessCheckboxesData.Initialize;
  87. begin
  88.     inherited Initialize;
  89.  
  90.     mStandard7 := false;
  91.     mXx3 := false;
  92.     mLR9 := false;
  93.     mLR10 := false;
  94.     mLR11 := false;
  95.     mLR12 := false;
  96.     mCheckbox5 := false;
  97.     mCheckbox6 := false;
  98.     mNext5 := false;
  99.     mNext6 := false;
  100. end;
  101.  
  102. {----------}
  103. Function DModelessCheckboxesData.GetStandard7: Boolean;
  104. begin
  105.     GetStandard7 := mStandard7;
  106.  
  107.  
  108. end;
  109.  
  110. Procedure DModelessCheckboxesData.SetStandard7 (
  111.     inValue:        Boolean);
  112. begin
  113.     mStandard7 := inValue;
  114.  
  115.  
  116.     SignalDataChanged (idStandard7);
  117. end;
  118.  
  119. {----------}
  120. Function DModelessCheckboxesData.GetXx3: Boolean;
  121. begin
  122.     GetXx3 := mXx3;
  123.  
  124.  
  125. end;
  126.  
  127. Procedure DModelessCheckboxesData.SetXx3 (
  128.     inValue:        Boolean);
  129. begin
  130.     mXx3 := inValue;
  131.  
  132.  
  133.     SignalDataChanged (idXx3);
  134. end;
  135.  
  136. {----------}
  137. Function DModelessCheckboxesData.GetLR9: Boolean;
  138. begin
  139.     GetLR9 := mLR9;
  140.  
  141.  
  142. end;
  143.  
  144. Procedure DModelessCheckboxesData.SetLR9 (
  145.     inValue:        Boolean);
  146. begin
  147.     mLR9 := inValue;
  148.  
  149.  
  150.     SignalDataChanged (idLR9);
  151. end;
  152.  
  153. {----------}
  154. Function DModelessCheckboxesData.GetLR10: Boolean;
  155. begin
  156.     GetLR10 := mLR10;
  157.  
  158.  
  159. end;
  160.  
  161. Procedure DModelessCheckboxesData.SetLR10 (
  162.     inValue:        Boolean);
  163. begin
  164.     mLR10 := inValue;
  165.  
  166.  
  167.     SignalDataChanged (idLR10);
  168. end;
  169.  
  170. {----------}
  171. Function DModelessCheckboxesData.GetLR11: Boolean;
  172. begin
  173.     GetLR11 := mLR11;
  174.  
  175.  
  176. end;
  177.  
  178. Procedure DModelessCheckboxesData.SetLR11 (
  179.     inValue:        Boolean);
  180. begin
  181.     mLR11 := inValue;
  182.  
  183.  
  184.     SignalDataChanged (idLR11);
  185. end;
  186.  
  187. {----------}
  188. Function DModelessCheckboxesData.GetLR12: Boolean;
  189. begin
  190.     GetLR12 := mLR12;
  191.  
  192.  
  193. end;
  194.  
  195. Procedure DModelessCheckboxesData.SetLR12 (
  196.     inValue:        Boolean);
  197. begin
  198.     mLR12 := inValue;
  199.  
  200.  
  201.     SignalDataChanged (idLR12);
  202. end;
  203.  
  204. {----------}
  205. Function DModelessCheckboxesData.GetCheckbox5: Boolean;
  206. begin
  207.     GetCheckbox5 := mCheckbox5;
  208.  
  209.  
  210. end;
  211.  
  212. Procedure DModelessCheckboxesData.SetCheckbox5 (
  213.     inValue:        Boolean);
  214. begin
  215.     mCheckbox5 := inValue;
  216.  
  217.  
  218.     SignalDataChanged (idCheckbox5);
  219. end;
  220.  
  221. {----------}
  222. Function DModelessCheckboxesData.GetCheckbox6: Boolean;
  223. begin
  224.     GetCheckbox6 := mCheckbox6;
  225.  
  226.  
  227. end;
  228.  
  229. Procedure DModelessCheckboxesData.SetCheckbox6 (
  230.     inValue:        Boolean);
  231. begin
  232.     mCheckbox6 := inValue;
  233.  
  234.  
  235.     SignalDataChanged (idCheckbox6);
  236. end;
  237.  
  238. {----------}
  239. Function DModelessCheckboxesData.GetNext5: Boolean;
  240. begin
  241.     GetNext5 := mNext5;
  242.  
  243.  
  244. end;
  245.  
  246. Procedure DModelessCheckboxesData.SetNext5 (
  247.     inValue:        Boolean);
  248. begin
  249.     mNext5 := inValue;
  250.  
  251.  
  252.     SignalDataChanged (idNext5);
  253. end;
  254.  
  255. {----------}
  256. Function DModelessCheckboxesData.GetNext6: Boolean;
  257. begin
  258.     GetNext6 := mNext6;
  259.  
  260.  
  261. end;
  262.  
  263. Procedure DModelessCheckboxesData.SetNext6 (
  264.     inValue:        Boolean);
  265. begin
  266.     mNext6 := inValue;
  267.  
  268.  
  269.     SignalDataChanged (idNext6);
  270. end;
  271.  
  272. end.
  273.